home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / howtou_2 / mformdel.frm < prev    next >
Text File  |  1999-08-28  |  9KB  |  233 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form MFormDeluxe 
  4.    AutoRedraw      =   -1  'True
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form2"
  7.    ClientHeight    =   1755
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   4500
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   1755
  13.    ScaleWidth      =   4500
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.PictureBox Picture1 
  17.       AutoSize        =   -1  'True
  18.       BorderStyle     =   0  'None
  19.       Height          =   510
  20.       Left            =   3870
  21.       ScaleHeight     =   510
  22.       ScaleWidth      =   510
  23.       TabIndex        =   8
  24.       Top             =   405
  25.       Width           =   510
  26.    End
  27.    Begin MSComctlLib.ImageList ImageList1 
  28.       Left            =   2070
  29.       Top             =   585
  30.       _ExtentX        =   1005
  31.       _ExtentY        =   1005
  32.       BackColor       =   -2147483643
  33.       ImageWidth      =   32
  34.       ImageHeight     =   32
  35.       MaskColor       =   12632256
  36.       _Version        =   393216
  37.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  38.          NumListImages   =   9
  39.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  40.             Picture         =   "MFormDeluxe.frx":0000
  41.             Key             =   ""
  42.          EndProperty
  43.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  44.             Picture         =   "MFormDeluxe.frx":031C
  45.             Key             =   ""
  46.          EndProperty
  47.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  48.             Picture         =   "MFormDeluxe.frx":0638
  49.             Key             =   ""
  50.          EndProperty
  51.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  52.             Picture         =   "MFormDeluxe.frx":0954
  53.             Key             =   ""
  54.          EndProperty
  55.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  56.             Picture         =   "MFormDeluxe.frx":0C70
  57.             Key             =   ""
  58.          EndProperty
  59.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  60.             Picture         =   "MFormDeluxe.frx":0F8C
  61.             Key             =   ""
  62.          EndProperty
  63.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  64.             Picture         =   "MFormDeluxe.frx":12A8
  65.             Key             =   ""
  66.          EndProperty
  67.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  68.             Picture         =   "MFormDeluxe.frx":15C4
  69.             Key             =   ""
  70.          EndProperty
  71.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  72.             Picture         =   "MFormDeluxe.frx":18E0
  73.             Key             =   ""
  74.          EndProperty
  75.       EndProperty
  76.    End
  77.    Begin VB.PictureBox Pic1 
  78.       AutoRedraw      =   -1  'True
  79.       BorderStyle     =   0  'None
  80.       Height          =   300
  81.       Index           =   0
  82.       Left            =   45
  83.       ScaleHeight     =   20
  84.       ScaleMode       =   3  'Pixel
  85.       ScaleWidth      =   85
  86.       TabIndex        =   4
  87.       Top             =   1170
  88.       Width           =   1275
  89.       Begin VB.Label Label1 
  90.          Alignment       =   2  'Center
  91.          Caption         =   "Annuleren"
  92.          BeginProperty Font 
  93.             Name            =   "MS Sans Serif"
  94.             Size            =   9.75
  95.             Charset         =   0
  96.             Weight          =   700
  97.             Underline       =   0   'False
  98.             Italic          =   0   'False
  99.             Strikethrough   =   0   'False
  100.          EndProperty
  101.          Height          =   195
  102.          Index           =   0
  103.          Left            =   90
  104.          TabIndex        =   5
  105.          Top             =   45
  106.          Width           =   1050
  107.       End
  108.    End
  109.    Begin VB.PictureBox Pic1 
  110.       AutoRedraw      =   -1  'True
  111.       BorderStyle     =   0  'None
  112.       Height          =   300
  113.       Index           =   1
  114.       Left            =   1440
  115.       ScaleHeight     =   20
  116.       ScaleMode       =   3  'Pixel
  117.       ScaleWidth      =   85
  118.       TabIndex        =   2
  119.       Top             =   1170
  120.       Width           =   1275
  121.       Begin VB.Label Label1 
  122.          Alignment       =   2  'Center
  123.          Caption         =   "Annuleren"
  124.          BeginProperty Font 
  125.             Name            =   "MS Sans Serif"
  126.             Size            =   9.75
  127.             Charset         =   0
  128.             Weight          =   700
  129.             Underline       =   0   'False
  130.             Italic          =   0   'False
  131.             Strikethrough   =   0   'False
  132.          EndProperty
  133.          Height          =   195
  134.          Index           =   1
  135.          Left            =   90
  136.          TabIndex        =   3
  137.          Top             =   45
  138.          Width           =   1050
  139.       End
  140.    End
  141.    Begin VB.PictureBox Pic1 
  142.       AutoRedraw      =   -1  'True
  143.       BorderStyle     =   0  'None
  144.       Height          =   300
  145.       Index           =   2
  146.       Left            =   2835
  147.       ScaleHeight     =   20
  148.       ScaleMode       =   3  'Pixel
  149.       ScaleWidth      =   85
  150.       TabIndex        =   0
  151.       Top             =   1170
  152.       Width           =   1275
  153.       Begin VB.Label Label1 
  154.          Alignment       =   2  'Center
  155.          Caption         =   "Annuleren"
  156.          BeginProperty Font 
  157.             Name            =   "MS Sans Serif"
  158.             Size            =   9.75
  159.             Charset         =   0
  160.             Weight          =   700
  161.             Underline       =   0   'False
  162.             Italic          =   0   'False
  163.             Strikethrough   =   0   'False
  164.          EndProperty
  165.          Height          =   195
  166.          Index           =   2
  167.          Left            =   90
  168.          TabIndex        =   1
  169.          Top             =   45
  170.          Width           =   1050
  171.       End
  172.    End
  173.    Begin VB.Label Label3 
  174.       Caption         =   "Label3"
  175.       BeginProperty Font 
  176.          Name            =   "MS Sans Serif"
  177.          Size            =   9.75
  178.          Charset         =   0
  179.          Weight          =   700
  180.          Underline       =   0   'False
  181.          Italic          =   0   'False
  182.          Strikethrough   =   0   'False
  183.       EndProperty
  184.       Height          =   195
  185.       Left            =   90
  186.       TabIndex        =   7
  187.       Top             =   90
  188.       Width           =   4425
  189.    End
  190.    Begin VB.Label Label2 
  191.       AutoSize        =   -1  'True
  192.       Caption         =   "Label2"
  193.       BeginProperty Font 
  194.          Name            =   "MS Sans Serif"
  195.          Size            =   9.75
  196.          Charset         =   0
  197.          Weight          =   700
  198.          Underline       =   0   'False
  199.          Italic          =   0   'False
  200.          Strikethrough   =   0   'False
  201.       EndProperty
  202.       Height          =   240
  203.       Left            =   180
  204.       TabIndex        =   6
  205.       Top             =   450
  206.       Width           =   3375
  207.       WordWrap        =   -1  'True
  208.    End
  209. End
  210. Attribute VB_Name = "MFormDeluxe"
  211. Attribute VB_GlobalNameSpace = False
  212. Attribute VB_Creatable = False
  213. Attribute VB_PredeclaredId = True
  214. Attribute VB_Exposed = False
  215. Private Sub Label1_Click(Index As Integer)
  216. Message(Index) = True
  217. MFormDeluxe.Hide
  218. End Sub
  219.  
  220. Private Sub Label1_Mouseup(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  221. Label1(Index).Move 1, 1, Pic1(Index).ScaleWidth - 2, Pic1(Index).ScaleHeight - 2
  222. Pic1(Index).Line (0, 0)-(Pic1(Index).ScaleWidth - 1, Pic1(Index).ScaleHeight - 1), RGB(r2, g2, b2), B
  223. Pic1(Index).Line (0, Pic1(Index).ScaleHeight - 1)-(Pic1(Index).ScaleWidth - 1, Pic1(Index).ScaleHeight - 1), RGB(r3, g3, b3)
  224. Pic1(Index).Line (Pic1(Index).ScaleWidth - 1, Pic1(Index).ScaleHeight - 1)-(Pic1(Index).ScaleWidth - 1, 0), RGB(r3, g3, b3)
  225. End Sub
  226.  
  227. Private Sub Label1_Mousedown(Index As Intege